home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DTP / A-F / CoolBlendsXT.cpt / CoolBlendsXT / Cool Blends.rsrc / HEDR_20000 < prev    next >
Text File  |  1992-06-05  |  2KB  |  51 lines
  1. userdict/xbldct 33 dict dup begin put
  2. /setpacking where dup{exch pop currentpacking exch true setpacking}if
  3. /@1 0 def/@2 0 def
  4. /c0 0 def/m0 0 def/y0 0 def/k0 0 def
  5. /c1 0 def/m1 0 def/y1 0 def/k1 0 def
  6. /cstp 0 def/mstp 0 def/ystp 0 def/kstp 0 def
  7. /docbl 0 def
  8. /blf 0 def
  9. /blstp 0 def
  10. /blw 0 def
  11. /minblnd 16 def
  12. /mtx matrix def
  13. /B{bind def}bind def
  14. /X{exch def}B
  15. /m/moveto load def
  16. /l/lineto load def
  17. /rl/rlineto load def
  18. /p2{pop pop}B
  19. /p3{pop pop pop}B
  20. /p4{pop pop pop pop}B
  21. /calcbnd{72 72 mtx defaultmatrix dtransform abs exch abs 2 copy lt{exch}if
  22.  pop/languagelevel where{pop languagelevel}{1}ifelse 2 ge{pop 256}
  23.  {/currentcolorscreen where{pop currentcolorscreen p2 3
  24.  {3 index 2 copy lt{exch}if 5 1 roll p4}repeat}{currentscreen p2}ifelse
  25.  div dup mul round cvi 15 add 16 idiv dup 1 lt{pop 1}if
  26.  16 mul dup 256 gt{pop 256}if}ifelse minblnd 2 copy lt{exch}if pop/maxblnd X}B
  27. /blar[
  28.  {dup neg -128 m 0 256 rl dup add 0 rl 0 -256 rl}bind
  29.  {dup neg dup m dup add 0 1 index rl dup 0 rl 0 exch neg rl}bind
  30.  {dup neg dup 0 exch m 0 l dup 0 exch l 0 l}bind
  31.  {0 0 3 -1 roll 0 360 arc}bind
  32.  {dup mul dup add sqrt 0 0 3 -1 roll 0 360 arc}bind
  33. ]def
  34. /xblnd{/docbl X/blf X docbl{/k1 X/y1 X/m1 X/c1 X/k0 X/y0 X/m0 X/c0 X}{/k1 X/k0 X}ifelse
  35.  k1 k0/@1 X/@2 X docbl{@2 @1 sub abs c1 c0 sub abs 2 copy lt
  36.  {exch c1 c0/@1 X/@2 X}if pop m1 m0 sub abs 2 copy lt
  37.  {exch m1 m0/@1 X/@2 X}if pop y1 y0 sub abs lt{y1 y0/@1 X/@2 X}if}if
  38.  @1 @2 docbl{1 exch sub exch 1 exch sub}if 2 copy lt{exch}if
  39.  sub/blstp exch/maxblnd where{pop}{calcbnd}ifelse maxblnd mul round cvi def
  40.  /blw 128 blstp 1 add div def/kstp k1 k0 sub blstp div def
  41.  docbl{/cstp c1 c0 sub blstp div def/mstp m1 m0 sub blstp div def
  42.  /ystp y1 y0 sub blstp div def}if gsave 128 128 translate newpath
  43.  docbl{c0 m0 y0 k0 setcmykcolor}{k0 setgray}ifelse 128 blar 1 get exec fill
  44.  blw 128 blar blf get blstp 1 add
  45.  docbl{{c0 m0 y0 k0 setcmykcolor 2 copy exec fill exch 2 index sub exch
  46.  /c0 c0 cstp add def/m0 m0 mstp add def/y0 y0 ystp add def/k0 k0 kstp add def}repeat}
  47.  {{k0 setgray 2 copy exec fill exch 2 index sub exch/k0 k0 kstp add def}repeat}ifelse
  48.  p3 grestore}B
  49. {setpacking}if
  50. end
  51.